I am new for perl-cgi script. and my objective is to create user/pass interactive script to log and get information from multiple device at once. instead of add the user/pass credential on the script itself. since i am new if some one show me how to write the interactive part of the script. thanks much!!!

here is the current code

usr/local/bin/perl -wl
use CGI ':standard';
use Net::Telnet::Cisco;
# ### set the error fields to nulls
$selerror = "";
# ### Input from the screen - make sure data was input                                      
if (param() and param('Switches') ne "" and  
   (param('Mac') ne "" or param('Interface Description') ne "" or param('VLAN') ne "" )) {
# ### Put the input devices into an array.
       @devices = param('Switches');
# ### format the header data         
       print header();
       print start_html(-title=>"ShowSwitches",-BGCOLOR=>'aqua');
       print "\n",h1("<CENTER>Show Switches</CENTER>");
       print "\n",hr(),"\n";
# ### Go thru the device array.      
    foreach(@devices) {
       $error_msg   = "";
       $TAC_login_error  = "";
       $open_error  = "";
       $retry_open_error  = "";
       $prompt_error  = "";
       $password_error  = "";
# ### Take input host and use to send to Telnet
       $host = $_;
       $session = Net::Telnet::Cisco->new(Errmode => 'return',
                                          Timeout => 30);
# ### Connect to the host 
       $session->open(Host =>"$host", Timeout => 15);
       $open_error = $session->errmsg;
# ### Login with TACACS if host can be connected to
       if ($open_error eq "") {
           $session->login('USER', 'PASS');
           $TAC_login_error = $session->errmsg;
# ### Login with TACACS failed - try standard login
           if ($TAC_login_error ne "") {
# ### Connect to host
               $session->open(Host =>"$host", Timeout => 15);
               $retry_open_error = $session->errmsg;
# ### Wait for password prompt - multiple matches - devices may have different device prompts.
               if ($retry_open_error eq "") {
                   $session->waitfor(Match => '/Password:.*$/',
                                 Match => '/Enter password:.*$/',
                                 Timeout => 20);
                   $prompt_error = $session->errmsg;
                   if ($prompt_error eq "") {
# ### Input password
                      $session->print('getmeout');
                      $password_error = $session->errmsg;
                      $session->waitfor('/.*>$/');
                      $password_error = $session->errmsg;
                      }
              }
           }
       }
# ### No errors, then issue "show commands".
       if ($open_error eq "" and ($TAC_login_error eq "" or $retry_open_error eq "")
          and $prompt_error eq "" and $password_error eq "") 
          {
# ### Show Mac                             
           if (param('Mac')) {
               $cmd = 'sh mac';
               @output  = $session->cmd("$cmd");
               $show_error = "";
               $show_error = $session->errmsg;
               print "\n",h2($host . ' - ' . $cmd);
               if ($show_error ne "") {
                   $error_msg = 'Error for show mac - ' . $show_error; 
                   print b($error_msg),(br);
                   print hr(),"\n";
                   $error_msg = '';

               }
               else {
                   print pre(@output);
                   print hr(),"\n";
               }
           }
# ### Show Interface Description           
           if (param('Interface Description')) {
               $cmd = 'sh interface description';
               @output  = $session->cmd("$cmd");
               $show_error = "";
               $show_error = $session->errmsg;
               print "\n",h2($host . ' - ' . $cmd);
               if ($show_error ne "") {
                   $error_msg = 'Error for show mac - ' . $show_error; 
                   print b($error_msg),(br);
                   print hr(),"\n";
                   $error_msg = '';

               }
               else {
                   print pre(@output);
                   print hr(),"\n";
               }
           }

# ### Show VLAN                           
           if (param('VLAN')) {
               $cmd = 'sh vlan';
               @output  = $session->cmd("$cmd");
               $show_error = "";
               $show_error = $session->errmsg;
               print "\n",h2($host . ' - ' . $cmd);
               if ($show_error ne "") {
                   $error_msg = 'Error for show vlan - ' . $show_error; 
                   print b($error_msg),(br);
                   print hr(),"\n";
                   $error_msg = '';
               }
               else {
                   print pre(@output);
                   print hr(),"\n";
               }
           }
       }
       elsif ($TAC_login_error ne "" and $password_error ne "") {
           $error_msg = "Error - $host " . $TAC_login_error . ' - possible incorrect TACACS or standard password parameters on device.'; 

       }
       elsif ($open_error ne "") {
           $error_msg = "Error - $host " . $open_error . ' - cannot connect to host - is it down??'; 
       }
       elsif ($prompt_error ne "") {
           $error_msg = "Error - $host " . $prompt_error . ' - password prompt not recognized - invalid TACACS (or user) password.'; 
       }
       elsif ($password_error ne "") {
           $error_msg = "Error - $host " . $password_error . ' - possible incorrect user/password parameters on device.'; 
       }
       if ($error_msg ne "" ) {
          print b($error_msg),(br);
          print hr(),"\n";
       }
       print hr(),"\n";
       print end_html(),"\n";
   }
}
else {
# ###  No Show command was selected.
  if (param('Submit') and param('Mac') eq "" and param('Interface Description') eq "" and param('VLAN') eq "" ) {
     $selerror = 'No Show Displays were selected. Try again please!!';
  }
  elsif
# ###  No switch was selected.
     (param('Submit') and param('Switches') eq "") {
     $selerror = 'No devices were selected. Try again please!!';
  }
# ### This formats the initial Show Web page. 
  print header(-Pragma=>'no-cache'),

        start_html(-title=>"Show Displays",-BGCOLOR=>'aqua'),

        h1("<CENTER>Show Switches</CENTER>"),hr(),

        start_form(),

        b("Select Show Commands:"), 

        br(),

        br(),

        checkbox(-name=>'Mac'),

        checkbox(-name=>'Interface Description'),

        checkbox(-name=>'VLAN'),

        br(),br(),hr(),br(),

        b("Select One or More Devices:"), 

        br(),

        br(),

        scrolling_list    (-name   => 'Switches',

                           -default=> "NONE",

                           -values => ['cs6a',  'cs7a',  'cs7b', 

                                       'cs8b',  'cs9a',  'c9b',  'csa'

                                       ], 

                           -multiple => 'true',

                           -size => 7,

                             ),
                p(submit('Submit'),reset('Reset')),

        b($selerror),

        end_form(),hr(),

        end_html();

}

#